home *** CD-ROM | disk | FTP | other *** search
/ Clipper Collection / Clipper Collection.iso / clipper7 / nannws24.arc / GENHELP.PRG < prev    next >
Text File  |  1988-05-18  |  867b  |  35 lines
  1. * Program: Genhelp.prg
  2. * Author:  Don L. Powells
  3. * Version: Clipper Summer 87
  4. * Copyright (c) Nantucket Corp.
  5. *
  6. SET SCOREBOARD OFF
  7. SET PROCEDURE TO HELP     && Compile HELP.PRG
  8. SET PROCEDURE TO HELPRITE && Compile HELPRITE.PRG
  9. SET KEY -30 TO HELPRITE   && Assign Alt-F1 to HELPRITE
  10. DO WHILE LASTKEY() <> 27
  11.    CLEAR
  12.    STORE SPACE(10) TO memvar1,memvar2,memvar3
  13.    SCROLL(1,0,24,79,0)
  14.    @ 1,26 TO 3,52 DOUBLE
  15.    CENTER(2,"G E N E R I C   H E L P")
  16.    CENTER(5,"Press F1 for Help")
  17.    @ 10,10 SAY "Enter memvar1 " GET memvar1
  18.    @ 12,10 SAY "Enter memvar2 " GET memvar2
  19.    @ 14,10 SAY "Enter memvar3 " GET memvar3
  20.    READ
  21.    WAIT "Press <ESC> to Quit"
  22. ENDDO
  23. RETURN
  24.  
  25. FUNCTION Center
  26. PARAMETERS trow,in_string
  27. IF LEN(in_string)>=80
  28.    @ trow,0 SAY in_string
  29. ELSE 
  30.    @ trow,(80 - LEN(in_string))/2 SAY in_string
  31. ENDIF 
  32.  
  33. RETURN (.T.)
  34.  
  35.